home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / Persuasion / Global Cast / Global Cast.rsrc / TEXT_1332.txt < prev    next >
Encoding:
Text File  |  1988-10-26  |  122 b   |  7 lines
  1. s#
  2. set &y = mouseh
  3. if commanddown then skip 2
  4. exit
  5. if not thechar = 'p' then skip 2
  6. if mouseh = &y then skip -1
  7. exit&Àáh